home *** CD-ROM | disk | FTP | other *** search
/ HAM Radio 1997 / HAM Radio 1997.iso / vcls / date / examples / extmain0.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-04-08  |  1.6 KB  |  65 lines
  1. unit Extmain0;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, AdTerm, AdPort, StdCtrls;
  8.  
  9. type
  10.   TEXTMainForm = class(TForm)
  11.     ApdEmulator1: TApdEmulator;
  12.     ApdComPort1: TApdComPort;
  13.     ApdTerminal1: TApdTerminal;
  14.     procedure ApdTerminal1KeyDown(Sender: TObject; var Key: Word;
  15.       Shift: TShiftState);
  16.     procedure Button1Click(Sender: TObject);
  17.   private
  18.     { Private declarations }
  19.     procedure WMGetMinMaxInfo(var Msg : TWMGetMinMaxInfo);
  20.       message WM_GETMINMAXINFO;
  21.   public
  22.     { Public declarations }
  23.   end;
  24.  
  25. var
  26.   EXTMainForm: TEXTMainForm;
  27.  
  28. implementation
  29.  
  30. {$R *.DFM}
  31.  
  32. procedure TEXTMainForm.WMGetMinMaxInfo(var Msg : TWMGetMinMaxInfo);
  33. var
  34.   FrameWidth : Word;
  35.   FrameHeight : Word;
  36.   NewWidth : Word;
  37.   NewHeight : Word;
  38. begin
  39.   FrameWidth := Width - ClientWidth;
  40.   FrameHeight := Height - ClientHeight;
  41.   NewWidth := (ApdTerminal1.CharWidth * ApdTerminal1.Columns)
  42.               + FrameWidth;
  43.   NewHeight := (ApdTerminal1.CharHeight * ApdTerminal1.PageHeight)
  44.                + FrameHeight;
  45.  
  46.   Msg.MinMaxInfo^.ptMaxSize.Y := NewHeight;
  47.   Msg.MinMaxInfo^.ptMaxSize.X := NewWidth;
  48.   Msg.MinMaxInfo^.ptMaxTrackSize.Y := NewHeight;
  49.   Msg.MinMaxInfo^.ptMaxTrackSize.X := NewWidth;
  50. end;
  51.  
  52. procedure TEXTMainForm.ApdTerminal1KeyDown(Sender: TObject; var Key: Word;
  53.   Shift: TShiftState);
  54. begin
  55.   if Key = vk_Insert then
  56.     ApdTerminal1.ScrollBack := not ApdTerminal1.Scrollback;
  57. end;
  58.  
  59. procedure TEXTMainForm.Button1Click(Sender: TObject);
  60. begin
  61.   ApdComPort1.Output := 'xxx';
  62. end;
  63.  
  64. end.
  65.